home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0574.ZIP / ISLOWER.ASM < prev    next >
Assembly Source File  |  1986-08-03  |  295b  |  25 lines
  1. include compiler.inc
  2.     ttl    ISLOWER, 1.03, 08-03-86 clr
  3.  
  4. ;char function - returns 1 if 'a'-'z', else 0
  5.  
  6.     dseg
  7.  
  8.     cseg
  9.  
  10.     procdef    islower, <<chr, byte>>
  11.  
  12.     mov    al,chr
  13.     mov    dx,0
  14.     cmp    al,'a'
  15.     jb    L0028
  16.     cmp    al,'z'
  17.     ja    L0028
  18.     inc    dx
  19. L0028:    mov    ax,dx
  20.     pret
  21.  
  22.     pend    islower
  23.  
  24.     finish
  25.